home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / gnu / recode33.lha / recode-3.3 / unhexify.l < prev    next >
Text File  |  1993-12-06  |  2KB  |  120 lines
  1. /* Replace most octal and hexadecimal C characters by %3d decimal.
  2.    Copyright (C) 1993 Free Software Foundation, Inc.
  3.    Francois Pinard <pinard@iro.umontreal.ca>, 1993.
  4.  
  5.    This program is free software; you can redistribute it and/or modify
  6.    it under the terms of the GNU General Public License as published by
  7.    the Free Software Foundation; either version 2, or (at your option)
  8.    any later version.
  9.  
  10.    This program is distributed in the hope that it will be useful, but
  11.    WITHOUT ANY WARRANTY; without even the implied warranty of
  12.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13.    General Public License for more details.
  14.  
  15.    You should have received a copy of the GNU General Public License
  16.    along with this program; if not, write to the Free Software
  17.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18. */
  19.  
  20. %{
  21.  
  22. void
  23. convert_base (int base, char *string, int offset)
  24. {
  25.   char *cursor;
  26.   int digit;
  27.   int value;
  28.  
  29.   value = 0;
  30.   for (cursor = string + offset; *cursor; cursor++)
  31.     {
  32.       switch (*cursor)
  33.     {
  34.     case '0':
  35.     case '1':
  36.     case '2':
  37.     case '3':
  38.     case '4':
  39.     case '5':
  40.     case '6':
  41.     case '7':
  42.     case '8':
  43.     case '9':
  44.       digit = *cursor - '0';
  45.       break;
  46.  
  47.     case 'A':
  48.     case 'B':
  49.     case 'C':
  50.     case 'D':
  51.     case 'E':
  52.     case 'F':
  53.       digit = *cursor - 'A' + 10;
  54.       break;
  55.  
  56.     case 'a':
  57.     case 'b':
  58.     case 'c':
  59.     case 'd':
  60.     case 'e':
  61.     case 'f':
  62.       digit = *cursor - 'a' + 10;
  63.       break;
  64.  
  65.     default:
  66.       digit = 99;
  67.     }
  68.       if (digit >= base)
  69.     break;
  70.       value = base * value + digit;
  71.     }
  72.   if (value < 256)
  73.     printf ("%3d", value);
  74.   else
  75.     printf ("%s", string);
  76. }
  77.  
  78. %}
  79.  
  80. %%
  81.  
  82. [1-9][0-9]*(\.[0-9]*)?        ECHO;
  83. \.[0-9]+            ECHO;
  84.  
  85. 0[0-7]*[89][0-9]*        ECHO;
  86. 0[0-7]+                convert_base (8, yytext, 1);
  87.  
  88. \\[1-7][0-7]*            convert_base (8, yytext, 1);
  89. \\0[0-7]+            convert_base (8, yytext, 1);
  90.  
  91. '\\[1-7][0-7]*'            convert_base (8, yytext, 2);
  92. '\\0[0-7]+'            convert_base (8, yytext, 2);
  93.  
  94. 0[xX][0-9a-fA-F]+        convert_base (16, yytext, 2);
  95.  
  96. .                ECHO;
  97.  
  98. %%
  99.  
  100. int
  101. main (int argc, char *const *argv)
  102. {
  103.   if (argc > 2)
  104.     {
  105.       fprintf (stderr, "Usage: %s [SOURCE]\n", argv[0]);
  106.       exit (1);
  107.     }
  108.   if (argc == 2)
  109.     {
  110.       fclose (stdin);
  111.       if (fopen (argv[1], "r") == NULL)
  112.     {
  113.       perror (argv[1]);
  114.       exit (1);
  115.     }
  116.     }
  117.   yylex ();
  118.   exit (0);
  119. }
  120.